home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / mac / 00000000 / Acknowl.dir / 00006_Script_6 < prev    next >
Text File  |  1995-11-09  |  2KB  |  77 lines
  1. on blendSpriteDown
  2.   
  3.   set blendValue = 100
  4.   repeat while blendValue >= 0
  5.     set blendValue = blendValue - 10
  6.     if blendValue = 0 then exit repeat
  7.     set the blend of sprite 3 to blendValue
  8.     updatestage
  9.     put blendValue
  10.     if the mousedown then exit repeat
  11.   end repeat
  12.   
  13.   
  14. end blendSpriteDown
  15. -------------------------------------------------------------------
  16. on blendSpriteUp
  17.   
  18.   set blendValue = 0
  19.   repeat while blendValue <= 100
  20.     set blendValue = blendValue + 10
  21.     if blendValue = 100 then exit repeat
  22.     set the blend of sprite 3 to blendValue
  23.     updatestage
  24.     put blendValue
  25.     
  26.   end repeat
  27.   
  28. end blendSpriteUp
  29. -------------------------------------------------------------------
  30. on goFwdOld
  31.   
  32.   global currentText, theFirstText, theLastText
  33.   
  34.   if the castNum of sprite 3 < theLastText then
  35.     blendSpriteDown
  36.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
  37.     blendSpriteUp
  38.   end if
  39.   
  40. end goFwdOld
  41. -------------------------------------------------------------------
  42. on goBackOld
  43.   
  44.   global currentText, theFirstText, theLastText
  45.   
  46.   if the castNum of sprite 3 > theFirstText then
  47.     blendSpriteDown
  48.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
  49.     blendSpriteUp
  50.   end if
  51.   
  52. end goBackOld
  53. -------------------------------------------------------------------
  54. on goBack
  55.   
  56.   global currentText, theFirstText, theLastText
  57.   
  58.   if the castNum of sprite 3 > theFirstText then
  59.     
  60.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) - 1
  61.     
  62.   end if
  63.   
  64. end goBack
  65. -------------------------------------------------------------------
  66. on goFwd
  67.   
  68.   global currentText, theFirstText, theLastText
  69.   
  70.   if the castNum of sprite 3 < theLastText then
  71.     
  72.     set the castNum of sprite 3 = ( the castNum of sprite 3 ) + 1
  73.     
  74.   end if
  75.   
  76. end goFwd
  77.